home *** CD-ROM | disk | FTP | other *** search
/ PCDisk Magazine Disks / PCDisk Magazine - Disk 4.img / FALKLAND.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-07-09  |  28.7 KB  |  484 lines
  1. 20  CLEAR:WIDTH80:KEYOFF:CLS:DEFSEG=0:SCREEN0:DEFINTX,A,K,C,N,D:IF(PEEK(&H410)AND&H30)=&H30THEN60 ELSE50
  2. 50  QA=9:QB=9:QC=15:QD=20:QE=9:QF=9:GOTO70
  3. 60  QA=15:QB=7:QC=9:QD=31:QE=9:QF=7
  4. 70  COLORQB:CLS:FORX=2TO79:PRINT"THEN";:NEXT:LOCATE1,1:PRINT"KEY":FORX=2TO22:LOCATEX,1,0:PRINT"OPEN":NEXT:LOCATE1,79,0:PRINT"CLOSE":FORX=2TO22:LOCATEX,79,0:PRINT"OPEN":NEXT:LOCATE23,1,0:PRINT"SCREEN":FORX=2TO78:LOCATE23,X,0:PRINT"THEN":NEXT
  5. 110  LOCATE23,79,0:PRINT"LOAD":FORX=2TO32:LOCATE11,X,0:PRINT" *Presenting*":NEXT:GOSUB150:FORX=2TO27:LOCATE14,X,0:PRINT" WAR IN THE FALKLANDS":NEXT:GOSUB150
  6. 140  FORX=2TO15:LOCATE17,X,0:PRINT" Copyright (C) 1983 Robert Alter     Version 1.5":NEXT:GOSUB150:GOTO160
  7. 150  FORX=2TO2000:NEXT:RETURN
  8. 160  FORX=1TO20:LOCATE25,1,0:PRINT" ":NEXTX:RANDOMIZEINT(VAL(MID$(TIME$,7,2))):CLS:DIMSE(15),LA(15),IG(15),SI(15,10):DIMDB(15),HC$(15),LE(21),CA(22),SY(15):FORX=1TO10:KEYX,"":NEXT
  9. 210  TC(5)=15:MB(5)=800:MB(6)=800:TC(6)=15:DD(9)=437:A10=200:A5=7:DD(7)=586:C10=9:A2$="April":A3=10:DD(8)=817:RESTORE240:FORX=1TO3:READAS,AD,AF:SH(X)=AS:PC(X)=AD:SY(X)=AF:NEXTX
  10. 240  DATA10,10,5,5,0,10,10,5,4:RESTORE260:FORX=1TO15:READX1:SE(X)=X1:NEXTX
  11. 260  DATA75,76,75,76,76,76,75,75,72,88,88,75,76,76,76:LB(5)=8:LB(6)=8:MC$="00":TD(7)=16:TD(8)=16:TD(9)=16:IFRND(1)>0.5THENA1$="clear" ELSEA1$="partly cloudy
  12. 300  RESTORE310:FORX=1TO15:READAS:LA(X)=AS:NEXTX
  13. 310  DATA5,0,5,1,5,5,0,0,0,1,1,1,1,1,1:RESTORE340:G=INT(RND(1)*11):FORX=1TOG:READAD:NEXTX:FORX=1TO9:READAD:SC(X)=AD:NEXTX
  14. 340  DATA119,120,121,122,110,97,96,121,98,122,123,97,120,119,133,122,108,109:DATA120,97:RESTORE370:FORX=1TO9:READF$:NH$(X)=F$:NEXTX
  15. 370  DATADe Mayo,Belgrano,Santa Fe,Salta,San Luis:DATAHercules,Espora,Rosale,Brown,End:RESTORE400:FORSX=1TO15:READHC$(SX):NEXTSX
  16. 400  DATAArk Royal,Invincible,Hermes,Glamorgan,Fearless,Intrepid,Conqueror:DATASuperb,Splendid,Sheffield,Coventry,Ardent,Antelope,Brilliant:DATABroadsword:RESTORE440:FORX=1TO21:READLD:LE(X)=LD:NEXTX
  17. 440  DATA0,25,0,0,0,0,500,750,0,1100,0,250,0,0,1300,1000,0,890,0,350,0:B10=6165:GOTO2050
  18. 460  CLS:COLORQC:LOCATE1,5,0:PRINT"AIRCRAFT CARRIERS":LOCATE1,45,0:PRINT"CRUISERS":COLORQC:LOCATE3,1,0:PRINT"1:Ark Royal";:COLORQB:IFDB(1)=5THENLOCATE5,5,0:PRINT"DESTROYED":GOTO570
  19. 500  PRINT"   Sector:"SE(1):LOCATE5,3,0:PRINTSH(1);"Sea Harrier V/STOL aircraft":LOCATE6,3,0:PRINTPC(1);"Phantom II aircraft":LOCATE7,3,0:PRINTSY(1);"Sea King A.S./cargo helicopter";:IFSY(1)<>1THENPRINT"s
  20. 550  LOCATE8,3,0:PRINTLA(1);"Lynx assault helicopter";:IFLA(1)<>1THENPRINT"s
  21. 570  COLORQC:LOCATE10,1,0:PRINT"2:Invincible";:COLORQB:IFDB(2)=5THENLOCATE12,5,0:PRINT"DESTROYED":GOTO650
  22. 590  PRINT"   Sector:"SE(2):LOCATE12,3,0:PRINTSH(2);"Sea Harrier V/STOL aircraft":LOCATE13,3,0:PRINTSY(2);"Sea King cargo helicopter";:IFSY(2)<>1THENPRINT"s
  23. 630  LOCATE14,3,0:PRINT" 2 Sea Slug missile systems":LOCATE15,3,0:PRINT" 4 Exocet missile system
  24. 650  COLORQC:LOCATE3,42,0:PRINT"3:Hermes";:COLORQB:IFDB(3)=5THENLOCATE5,45,0:PRINT"DESTROYED":GOTO730
  25. 670  PRINT"  Sector:"SE(3):LOCATE5,42,0:PRINTSH(3);"Sea Harrier V/STOL aircraft":LOCATE6,42,0:PRINTPC(3);"Phantom II aircraft":LOCATE7,42,0:PRINTLA(3);"Lynx assault helicopter";:IFLA(3)<>1THENPRINT"s
  26. 720  LOCATE8,42,0:PRINT" 2 Seacat missile systems
  27. 730  LOCATE10,42,0:COLORQC:PRINT"4:Glamorgan";:COLORQB:IFDB(4)=5THENLOCATE12,45,0:PRINT"DESTROYED":GOTO800
  28. 750  PRINT"   Sector:"SE(4):LOCATE12,42,0:PRINT" 4 Exocet missile systems":LOCATE13,42,0:PRINT" 2 Sea Cat missile systems":LOCATE14,42,0:PRINT" 4 115mm gun turrets":LOCATE15,42,0:PRINTLA(4);"Lynx anti-submarine helicopter
  29. 800  LOCATE16,1,0:PRINT"SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND";:PRINT"MOTOR";:LOCATE16,39,0:PRINT"SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND":FORX5=1TO15:LOCATEX5,38,0:PRINT"CALL":NEXTX5
  30. 840  COLORQA:LOCATE19,35,0:PRINT"F1=Aircraft Carrier & Helicopter Cruisers":LOCATE20,35,0:PRINT"F2=Land assault ship status":LOCATE21,35,0:PRINT"F3=Destroyer & Submarine status":LOCATE22,35,0:PRINT"F4=Frigate status
  31. 880  LOCATE23,35,0:PRINT"F5=Return to menu":COLORQF:LOCATE20,1,0:PRINT"Enter your choice :":GOSUB8330:ONF2GOTO460,1670,1270,910,2050,840,840,840,840,840
  32. 910  CLS:COLORQC:LOCATE1,33,0:PRINT"FRIGATES":LOCATE3,1,0:COLORQC:PRINT"12:Ardent";:COLORQB:IFDB(12)=5THENLOCATE5,5,0:PRINT"DESTROYED":GOTO1000
  33. 940  PRINT"   Sector:"SE(12):LOCATE5,1,0:PRINT" 4 Exocet missile systems":LOCATE6,1,0:PRINT" 1 Sea Cat missile system":LOCATE7,1,0:PRINT" 1 115mm gun":LOCATE8,1,0:PRINT" 8 20mm guns":LOCATE9,1,0:PRINTLA(12);"Lynx anti-submarine helicopter
  34. 1000  LOCATE3,40,0:COLORQC:PRINT"13:Antelope";:COLORQB:IFDB(13)=5THENLOCATE5,45,0:PRINT"DESTROYED":GOTO1080
  35. 1020  PRINT"   Sector:"SE(13):LOCATE5,40,0:PRINT" 4 Exocet missile systems":LOCATE6,40,0:PRINT" 1 Sea Cat missile system":LOCATE7,40,0:PRINT" 1 115mm gun":LOCATE8,40,0:PRINT" 8 20mm guns":LOCATE9,40,0:PRINTLA(13);"Lynx anti-submarine helicopter
  36. 1080  LOCATE11,1,0:COLORQC:PRINT"14:Brilliant";:COLORQB:IFDB(14)=5THENLOCATE13,5,0:PRINT"DESTROYED":GOTO1150
  37. 1100  PRINT"  Sector:"SE(14):LOCATE13,1,0:PRINT" 2 Sea Wolf defense missile systems":LOCATE14,1,0:PRINT" 4 Exocet missile systems":LOCATE15,1,0:PRINT" 2 40mm guns":LOCATE16,1,0:PRINTLA(14);"Lynx anti-submarine helicopter
  38. 1150  LOCATE11,40,0:COLORQC:PRINT"15:Broadsword";:COLORQB:IFDB(15)=5THENLOCATE13,45,0:PRINT"DESTROYED":GOTO1220
  39. 1170  PRINT"   Sector:"SE(15):LOCATE13,40,0:PRINT" 2 Sea Wolf defense missile systems":LOCATE14,40,0:PRINT" 4 Exocet missile systems":LOCATE15,40,0:PRINT" 2 40mm guns":LOCATE16,40,0:PRINTLA(15);"Lynx anti-submarine helicopter
  40. 1220  FORX=3TO17:LOCATEX,38,0:PRINT"CALL":NEXTX:LOCATE17,1,0:PRINT"SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND";:PRINT"MOTOR";:LOCATE17,39,0:PRINT"SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND":GOTO840
  41. 1270  CLS:LOCATE1,3,0:COLORQC:PRINT"DESTROYERS":LOCATE3,1,0:PRINT"10:Sheffield";:COLORQB:IFDB(10)=5THENLOCATE5,5,0:PRINT"DESTROYED":GOTO1360
  42. 1310  PRINT"   Sector:"SE(10):LOCATE5,1,0:PRINT" 2 Sea Slug missile systems":LOCATE6,1,0:PRINT" 1 115mm gun":LOCATE7,1,0:PRINTLA(10);"Lynx A.S. helicopter":LOCATE8,1,0:PRINT" Satellite communications
  43. 1360  FORX=3TO15:LOCATEX,30,0:PRINT"CALL":NEXTX:LOCATE10,1,0:COLORQC:PRINT"11:Coventry";:COLORQB:IFDB(11)=5THENLOCATE13,5,0:PRINT"DESTROYED":GOTO1440
  44. 1390  PRINT"   Sector:"SE(11):LOCATE12,1,0:PRINT" 2 Sea Slug missile systems":LOCATE13,1,0:PRINT" 1 115mm gun":LOCATE14,1,0:PRINTLA(11);"Lynx A.S. helicopter":LOCATE15,1,0:PRINT" Satellite communications
  45. 1440  LOCATE16,1,0:PRINT"SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND";:PRINT"MOTOR";:LOCATE16,31,0:PRINT"SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND":LOCATE1,32,0:COLORQC:PRINT"SUBMARINES":LOCATE3,32,0:PRINT"7:Conqueror";:COLORQB
  46. 1490  IFDB(7)=5THENLOCATE5,35,0:PRINT"DESTROYED":GOTO1540
  47. 1500  IFDD(7)=0THENAS$="Surfaced" ELSEAS$="Submerged
  48. 1510  PRINT"  Sector:"SE(7):LOCATE3,58,0:PRINTAS$:LOCATE4,58,0:PRINT"Depth:"DD(7)"ft.":LOCATE5,33,0:PRINTTD(7);"Torpedo launchers still functional
  49. 1540  COLORQC:LOCATE7,32,0:PRINT"8:Superb";:COLORQB:IFDB(8)=5THENLOCATE9,35,0:PRINT"DESTROYED":GOTO1600
  50. 1560  IFDD(8)=0THENAS$="Surfaced" ELSEAS$="Submerged
  51. 1570  PRINT"     Sector:"SE(8):LOCATE7,58,0:PRINTAS$:LOCATE8,58,0:PRINT"Depth:"DD(8)"ft.":LOCATE9,33,0:PRINTTD(8);"Torpedo launchers still functional
  52. 1600  COLORQC:LOCATE11,32,0:PRINT"9:Splendid";:COLORQB:IFDB(9)=5THENLOCATE13,35,0:PRINT"DESTROYED":GOTO1660
  53. 1620  IFDD(9)=0THENAS$="Surfaced" ELSEAS$="Submerged
  54. 1630  PRINT"   Sector:"SE(9):LOCATE11,58,0:PRINTAS$:LOCATE12,58,0:PRINT"Depth:"DD(9)"ft.":LOCATE13,33,0:PRINTTD(9);"Torpedo launchers still functional
  55. 1660  GOTO840
  56. 1670  CLS:LOCATE1,1,0:COLORQC:PRINT"LAND ASSAULT SHIPS":LOCATE3,3,0:PRINT"5:Fearless";:COLORQB:IFDB(5)=5THENLOCATE5,5,0:PRINT"DESTROYED":GOTO1800
  57. 1700  PRINT"   Sector:"SE(5):LOCATE5,3,0:PRINT" 4 Sea Cat missile systems":LOCATE6,3,0:PRINT" 2 40mm Bofors guns":LOCATE7,3,0:PRINTTC(5);"Tank";:IFTC(5)<>1THENPRINT"s
  58. 1750  LOCATE8,3,0:PRINTLA(5);"Lynx ground support helicopter";:IFLA(5)<>1THENPRINT"s
  59. 1770  IFMB(5)=1THENAS$="er" ELSEAS$="s
  60. 1780  LOCATE9,3,0:PRINTMB(5);"Troop"AS$" on board":AS$="":LOCATE10,3,0:PRINTLB(5);"Landing craft still functional
  61. 1800  LOCATE3,40,0:COLORQC:PRINT"6:Intrepid";:COLORQB:IFDB(6)=5THENLOCATE5,45,0:PRINT"DESTROYED":GOTO1920
  62. 1820  PRINT"   Sector:"SE(6):LOCATE5,42,0:PRINT" 4 Sea Cat missile systems":LOCATE6,42,0:PRINT" 2 40mm Bofors guns":LOCATE7,42,0:PRINTTC(6);"Tank";:IFTC(6)<>1THENPRINT"s
  63. 1870  LOCATE8,42,0:PRINTLA(6);"Lynx ground support helicopter";:IFLA(6)<>1THENPRINT"s
  64. 1890  IFMB(6)=1THENAS$="er" ELSEAS$="s
  65. 1900  LOCATE9,42,0:PRINTMB(6);"Troop"AS$" on board":AS$="":LOCATE10,42,0:PRINTLB(6);"Landing craft still functional
  66. 1920  LOCATE11,1,0:PRINT"SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND";:PRINT"MOTOR";:LOCATE11,39,0:PRINT"SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND":FORX=3TO10:LOCATEX,38,0:PRINT"CALL":NEXTX:GOTO840
  67. 1970  B10=0:FORX=1TO21:B10=B10+LE(X):NEXTX:IFCA(16)>1ANDCA(15)>1ANDCA(8)>1THEN7830
  68. 2000  IFDB(5)=5ANDDB(6)=5ANDGB=0THENCLS:PRINT"You lost all your men!":GOTO7890
  69. 2010  IFRND(1)>0.95688ANDA10>7THEN7220
  70. 2020  IFRND(1)>0.8THEN7290
  71. 2030  FORX=1TO15:IFSE(X)=121THENGOSUB8390
  72. 2040  NEXTX
  73. 2050  CLS:COLORQB:LOCATE2,1,0:PRINT"Day: ";A2$;",";A3;"1982":IFA10<0THENA10=0
  74. 2080  IFB10<0THENB10=0
  75. 2090  LOCATE2,25,0:PRINT"Time:"A5":"MC$"  ":LOCATE4,1,0:PRINT"It is ";A1$:LOCATE6,1,0:PRINTA10;"Argentine planes are on Falklands":LOCATE7,1,0:PRINTB10;"Argentine troops are on Falklands":LOCATE8,1,0:PRINTC10"Argentine ships are left.
  76. 2140  LOCATE2,55,0:PRINT"Captured land sectors":LOCATE3,45,0:PRINT"VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND":FORX=4TO8:LOCATEX,45,0:PRINT"CALL":NEXTX:LOCATE9,1,0:PRINT"SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND
  77. 2180  J1=2:J=0:K=0
  78. 2190  J=K+1:K=K+8:J1=J1+2:IFK>21THENK=21
  79. 2200  LOCATEJ1,47,0:FORX=JTOK:IFCA(X)>0THENPRINTCA(X);
  80. 2210  NEXTX:IFK<>21THEN2190
  81. 2220  LOCATE11,1,0:PRINT"These are the things you can do:":LOCATE13,1,0:PRINT"Combat related":LOCATE13,45,0:PRINT"Non-Combat related":LOCATE14,1,0:PRINT"--------------":LOCATE14,45,0:PRINT"------------------
  82. 2270  LOCATE15,1,0:PRINT"Bomb Land Sectors     (F1)*":LOCATE16,1,0:PRINT"Launch Landing Craft  (F2)":LOCATE15,45,0:PRINT"Wait                  (F6)":LOCATE17,1,0:PRINT"Send Air Support      (F3)*":LOCATE16,45,0:PRINT"Change Sub's Depth    (F7)
  83. 2320  LOCATE17,45,0:PRINT"Ship Movement         (F8)":LOCATE18,1,0:PRINT"Casualty Report       (F4)":LOCATE19,1,0:PRINT"Artillery Support     (F5)*":LOCATE18,45,0:PRINT"Ships Status Report   (F9)
  84. 2360  IFA3=31ANDA5=24THENPRINT"You have run out of time!!!":GOTO7890
  85. 2370  LOCATE19,45,0:PRINT"Surrender             (F10)":LOCATE20,1,0:PRINT"SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND
  86. 2390  LOCATE22,1,0:PRINT"Enter your choice :":GOSUB8330:ONF2GOTO2410,6560,2980,7650,3350,4450,7080,3970,460,7760
  87. 2410  RANDOMIZEINT(VAL(MID$(TIME$,7,2))):CLS:LOCATE1,30,0:COLORQC:PRINT"BOMBING RAID":LOCATE2,30,0:PRINT"SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND":COLORQF
  88. 2450  X=0:AA=0:J4=0:PRINT"What do you want your bombers to be,sir?
  89. 2460  PRINT:PRINT"Harrier Jet (F1),Phantom Jet (F2),Lynx Helicopter (F3)?":GOSUB8330:IFF2>=4THEN2460
  90. 2480  ONF2GOTO2550,2540,2560
  91. 2490  PRINT"Enter the number of "Y1$"s you want. You have"TA":";:INPUT"",A4:IFA4=0THEN1970
  92. 2510  IFTA<A4THENPRINT"You don't have that many!":GOTO2450
  93. 2520  IFTA<=0THENPRINT"You have no "Y1$" aircraft left.":GOTO2450
  94. 2530  GOTO2570
  95. 2540  TA=0:Y1$="Phantom":FORX=1TO3:TA=TA+PC(X):NEXTX
  96. 2545  IFTA<=0THEN2520 ELSE2490
  97. 2550  TA=0:Y1$="Harrier":FORX=1TO3:TA=TA+SH(X):NEXTX:GOTO2545
  98. 2560  TA=0:Y1$="Lynx":FORX=1TO15:TA=TA+LA(X):NEXTX:GOTO2545
  99. 2570  PRINT:INPUT"Enter the land sector you wish to bomb";C:IFC=0THENY1$="":A4=0:GOTO1970
  100. 2590  IFC>21ORC<1THENPRINT"No such land sector!":GOTO2570
  101. 2600  IFLE(C)>=1000THENF$="excellent":FA=0.1:H3=0.6:GOTO2640
  102. 2610  IFLE(C)>=800THENF$="good":FA=0.09:H3=0.7:GOTO2640
  103. 2620  IFLE(C)>=500THENF$="weak":FA=0.05:H3=0.9:GOTO2640
  104. 2630  F$="`unknown'":H3=0.999999
  105. 2640  PRINT:PRINT"Target has ";F$;" flak protection.":PRINT"You have"A4"bombers making the run":PRINT:PRINT"The orders have been issued.Time elapsed= 1 hour.":SB=INT(A4*FA):IFSB<0THENSB=0
  106. 2680  IFSB>=5THENSB=4:KA=KA+SB
  107. 2690  PD=0:IFRND(1)<=H3THEN2700 ELSE2720
  108. 2700  MK=INT(0.01*LE(C))*A4:IF C=15 OR C=8 THEN PD=INT(RND(1)*10)+1
  109. 2710  LE(C)=LE(C)-MK
  110. 2720  LOCATE23,25,0:PRINT"-press space bar to continue-
  111. 2730  A$=INKEY$:IFA$=""THEN2730
  112. 2750  A5=A5+1:CLS:LOCATE1,22,0:PRINT"Report on the bombing of sector";C:LOCATE2,22,0:PRINT"SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND":IFMK=0THENSB=0
  113. 2780  LOCATE4,25,0:PRINT"You lost"SB;Y1$" to flak.":LOCATE6,25,0:IFMK<=0ANDPD<=0THENPRINT"Target not found! Mission failed!":GOTO2940
  114. 2800  PRINT:PRINT"Target damage:":PRINTPD;"Argentine planes were destroyed (estimate)":PRINT"Much of the area was hit pretty hard!":A10=A10-PD:B10=B10-MK
  115. 2840  IFSB<=0THEN2940
  116. 2850  KA=KA+SB:IFY1$="Phantom"THEN2920
  117. 2870  IFY1$="Harrier"THEN2900
  118. 2880  FOR X=1 TO 15:IF LA(X)>=1 THEN LA(X)=LA(X)-1:SB=SB-1:GOTO 2840
  119. 2890  NEXTX
  120. 2900  FORX=1TO3:IFSH(X)>0THENSH(X)=SH(X)-1:SB=SB-1:GOTO2840
  121. 2910  NEXTX
  122. 2920  FORX=1TO3:IFPC(X)>0THENPC(X)=PC(X)-1:SB=SB-1:GOTO2840
  123. 2930  NEXTX
  124. 2940  MK=0:PD=0:TA=0:Y1$="":SB=0:DE=0:C=0:LOCATE23,25,0:PRINT"-press space bar to continue-
  125. 2960  A$=INKEY$:IFA$=""THEN2960
  126. 2970  CLS:GOTO4350
  127. 2980  RANDOMIZEINT(VAL(MID$(TIME$,7,2))):TR=0:FORX=1TO15:TR=TR+LA(X):NEXTX:IFTR<=0THENPRINT"You have no Lynx helicopters.":GOTO2390
  128. 3000  CLS:LOCATE1,30,0:COLOR7:PRINT"AIR SUPPORT":LOCATE2,30,0:PRINT"SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND":COLORQF
  129. 3020  INPUT"To what land sector are you sending it";SF:IFSF=0THEN1970
  130. 3040  IFSF>21THEN3020
  131. 3050  IFSF=21ANDCA(20)=0THENPRINT"You were not requested!":GOTO3070
  132. 3060  IFSF=21THEN3080
  133. 3070  IFCA(SF+1)=0ANDCA(SF-1)=0THENPRINT"You were not requested!":GOTO7190
  134. 3080  PRINT"How many Lynx helicopters are you going to send ?":PRINT"You have"TR"Lynx helicopters";:INPUTN:IFN=0THEN1970
  135. 3120  IFN>TRTHENCLS:PRINT"You only have"TR"helicopters!":GOTO3080
  136. 3130  PRINT:PRINT"The helicopters are away!":LOCATE23,25,0:PRINT"-press space bar to continue ***
  137. 3150  A$=INKEY$:IFA$=""THEN3150
  138. 3160  CLS:COLORQD:PRINT"REPORT";:COLORQF:PRINT" from Copter pilot :":PRINT:PRINT"Our troops ";:IFRND(1)<0.3THENPRINT"were under small arms fire,so we sterilized the area!":GOTO3230
  139. 3200  IFRND(0)<0.3THEN3230
  140. 3210  IFRND(1)<0.5THENPRINT"were surrounded by Argentine troops,so we layed down some heavy rocket fire and got them out!":GOTO3230
  141. 3220  PRINT"needed some help in the elimination of a little resistance.
  142. 3230  MK=INT(0.1*LE(SF)):IFRND(1)<0.5THENHL=1
  143. 3240  IFRND(0)<0.1THENHL=2
  144. 3250  IFN<=HLTHENHL=N-1:N=1
  145. 3260  PRINT:PRINT"We lost"HL"helicopter to enemy ground fire.":B10=B10-MK
  146. 3280  IFHL<=0THEN3310
  147. 3290  FORX=1TO15:IFLA(X)>=1THENLA(X)=LA(X)-1:HL=HL-1:GOTO3280
  148. 3300  NEXTX
  149. 3310  IFLE(SF)<=500ANDN>4THENPRINT"You have captured this area!":CA(SF)=SF:LE(SF)=0
  150. 3320  LOCATE23,25,0:PRINT"-press space bar to continue-
  151. 3330  A$=INKEY$:IFA$=""THEN3330
  152. 3340  A5=A5+1:MK=0:HL=0:N=0:A$="":TR=0:CLS:GOTO4350
  153. 3350  CLS:LOCATE1,30,0:COLOR7:PRINT"ARTILLERY SUPPORT":LOCATE2,30,0:PRINT"SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND":COLORQF:FORX=10TO15:RESTORE3410:FORJ=1TO8:READYU:IFSE(X)=YUTHEN3420
  154. 3390  NEXTJ:NEXTX:PRINT"None of your ships are close enough to shell island!":GOTO3560
  155. 3410  DATA120,121,122,123,119,132,133,134
  156. 3420  INPUT"Enter the land sector you wish to shell";SJ:IFSJ=0THEN1970
  157. 3440  IFSJ>21ORSJ<1THEN3420
  158. 3450  LOCATE23,1,0:PRINT"-Press any key to find out results of artillery fire-
  159. 3460  A$=INKEY$:IFA$=""THEN3460
  160. 3470  CLS:COLORQD:PRINT"REPORT";:COLORQF:PRINT" from Lt. Hanson,":PRINT:PRINT"The results of the shelling are:":IFLE(SJ)>300THENMK=INT(RND(1)*100)+1
  161. 3500  IFMK=0THEN3510 ELSEMW=INT(RND(1)*300)+1
  162. 3510  IFMK>500THENMK=MK-500:GOTO3510
  163. 3520  IFLE(SJ)<=500THENPRINT"{Unknown}":GOTO3540
  164. 3530  PRINT"The shells hit the target! Report being compiled.":B10=B10-MK:LE(SJ)=LE(SJ)-MK
  165. 3540  B10=B10-MK:LE(SJ)=LE(SJ)-MK:A5=A5+1:MK=0:MW=0
  166. 3560  LOCATE23,25,0:PRINT"-press space bar to continue-
  167. 3570  A$=INKEY$:IFA$=""THEN3570
  168. 3580  CLS:GOTO4350
  169. 3590  REM
  170. 3600  TA=0:PRINT"What kind of plane do you want:
  171. 3610  PRINT:PRINT"Phantom Jet (F1) or Harrier Jet (F2) ?":GOSUB8330:IFF2=0THEN7290
  172. 3630  IFF2>2ORF2<0THENPRINT"Use function keys":GOTO3610
  173. 3640  IFF2=2THEN3660
  174. 3650  Y1$="Phantom":FORK=1TO3:TA=TA+PC(K):NEXTK:GOTO3670
  175. 3660  Y1$="Harrier":FORK=1TO3:TA=TA+SH(K):NEXTK
  176. 3670  IF TA<=0 THEN PRINT"You have none! Planes break through!":A5=A5+1:FOR I=1 TO 1000:NEXT I:GOTO 4350
  177. 3680  PRINT"How many "Y1$"'s do you want :":PRINT"You have"TA;:INPUTA4:IFA4=0THENPRINT"You must send something!!!":GOTO3600
  178. 3710  IFA4>TATHENPRINT"You don't have that many!":GOTO3600
  179. 3720  PRINT:PRINT"Your";A4;"interceptor planes are on their way!
  180. 3730  A5=A5+1:LOCATE24,22,0:PRINT"-press space bar to continue-
  181. 3740  A$=INKEY$:IFA$=""THEN3740
  182. 3750  CLS:COLORQD:PRINT"REPORT";:COLORQF:PRINT" from Flight Leader":PRINT:PRINT"We have visual contact! I count"EA"planes,";:IFEA<A4THENPRINT"No problem! These guys are dead!":PRINT:GOTO3800
  183. 3790  IFEA=>A4THENPRINT"I predict they might break through!":GOTO3830
  184. 3800  IFEA+1<=A4THENEA=0:SB=INT(RND(1)*A4)-2:IFSB>2THENSB=0
  185. 3810  IFEA+1>A4THENSB=0:EA=INT(RND(1)*EA)
  186. 3820  IFEA<=0THEN3850
  187. 3830  PRINT"SSKXXDSKK...They're...brea.....through":LOCATE 23,25,0:PRINT"-press space bar to continue-
  188. 3840  A$=INKEY$:IFA$=""THEN3840 ELSE7290
  189. 3850  PRINT"All enemy planes destroyed! We lost ";:IFSB<=0THENPRINT"no one." ELSEPRINTSB
  190. 3870  GOTO3880
  191. 3880  IFSB<=0THEN3930
  192. 3890  FORX=1TO3:IFSH(X)>=1THENSH(X)=SH(X)-1:SB=SB-1:GOTO3880
  193. 3900  NEXTX:FORX=1TO3:IFPC(X)>=1THENPC(X)=PC(X)-1:SB=SB-1:GOTO3880
  194. 3920  NEXTX
  195. 3930  PRINT:PRINT:PRINT"-press space bar to continue-
  196. 3940  A$=INKEY$:IFA$=""THEN3940
  197. 3950  IFRND(1)<0.3THENC10=C10-EA
  198. 3960  EA=0:A4=0:A$="":CLS:GOTO4350
  199. 3970  REM
  200. 3980  CLS:LOCATE1,30,0:COLORQB:PRINT"SHIP MOVEMENT":LOCATE2,30,0:PRINT"SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND":ZB=0:ZA=0
  201. 4020  LOCATE4,10,0:INPUT"Enter ID # of ship you are moving";ZA:CLS:IFZA<=0ORZA>15THEN1970
  202. 4040  IFDB(ZA)=5THENPRINTTAB(10)"That ship has been destroyed!!":GOTO4020
  203. 4050  PRINT"Ship #"ZA" The H.M.S. "HC$(ZA)" in sector"SE(ZA):PRINT"You want to move that ship (y/n) ?
  204. 4070  A$=INKEY$:IFA$=""THEN4070
  205. 4080  IFA$="y"ORA$="Y"THEN4090 ELSE3980
  206. 4090  IFZA=5ANDTI>0ORZA=6ANDTP>0THENPRINT"You may not move until all troops have been unloaded...":GOTO4310
  207. 4100  PRINT:PRINT"Enter sea sectors you want to move through one at a time.
  208. 4110  ZB=ZB+1:IFZB=11THENPRINT"That is the maximum number of moves allowed at one time.":GOTO4260
  209. 4130  PRINT"Move #"ZB;:INPUTSI(ZA,ZB):IFSI(ZA,ZB)=0THEN4260
  210. 4160  IFSI(ZA,ZB)>160ORSI(ZA,ZB)<51THEN4250
  211. 4170  IFZB=1THEN4180 ELSE4190
  212. 4180  IFSI(ZA,ZB)>SE(ZA)+14THEN4250 ELSE4110
  213. 4190  IFSI(ZA,ZB)>SI(ZA,ZB-1)+15THEN4250
  214. 4200  IFSI(ZA,ZB)=121THEN4230
  215. 4210  IFSI(ZA,ZB-1)=121THEN4240
  216. 4220  GOTO4110
  217. 4230  IFSI(ZA,ZB-1)=120ORSI(ZA,ZB-1)=133THEN4110 ELSE4250
  218. 4240  IFSI(ZA,ZB)=120ORSI(ZA,ZB)=133THEN4110
  219. 4250  BEEP:PRINT"Illegal move.":GOTO4130
  220. 4260  ZB=ZB-1:IG(ZA)=ZB:PRINT"It will take it";ZB;"hours to reach its destination.":PRINT:PRINT"You will NOT be informed when it arrives.":PRINT"Reports WILL let you know if it encounters enemy activity.
  221. 4310  ZA=0:X=0:ZB=0:PRINT:PRINTTAB(25)"-press space bar to continue-
  222. 4320  A$=INKEY$:IFA$=""THEN4320
  223. 4330  CLS:GOTO2050
  224. 4350  FORX=1TO15:IFIG(X)>0THENIG(X)=IG(X)-1:GOSUB4570
  225. 4370  NEXTX:FORX=7TO9:IFCC(X)>0THENDD(X)=CC(X):CC(X)=0
  226. 4390  NEXTX:IFTI=A5THENGOSUB6840
  227. 4410  IFTP=A5THENGOSUB6840
  228. 4420  IFRND(1)>0.78THEN7290
  229. 4430  IFRND(1)<0.2THENGOSUB7540
  230. 4440  GOTO4540
  231. 4450  REM
  232. 4460  INPUT"What is the max amount of time you want to go by (hours)";TB:IFTB=0THEN2050
  233. 4480  IFTB<0ORTB>500THEN4460
  234. 4490  IFTB>=20THENPRINT"Are you sure (y/n) ?" ELSE4520
  235. 4500  A$=INKEY$:IFA$=""THEN4500
  236. 4510  IFA$="n"ORA$="N"THEN2050
  237. 4520  CLS:LOCATE8,20,0:PRINT"Time is passing....";:COLOR19:PRINTCHR$(26):COLORQF:IFTB=0THEN1970
  238. 4540  IFA5>24THENA3=A3+1:A5=0
  239. 4550  IFTB<=0ANDA5<>0THEN1970
  240. 4560  A5=A5+1:TB=TB-1:GOTO4350
  241. 4570  IFRND(1)<0.01THENA1$="clear
  242. 4590  IFRND(1)<0.4THENA1$="overcast" ELSEA1$="raining
  243. 4600  FORGY=1TO10:IFSI(X,GY)>0THEN4620
  244. 4610  NEXTGY:RETURN
  245. 4620  SE(X)=SI(X,GY):SI(X,GY)=0:FORJ=1TO9:IFSE(X)<>0ANDSE(X)=SC(J)THENGOSUB4650
  246. 4640  NEXTJ:RETURN
  247. 4650  CLS:DJ=INT(RND(1)*70):IFDJ>10THEN4680
  248. 4670  PRINT"***Your ship has been attacked by a Argentine sub!!!":GOTO5170
  249. 4680  COLORQD:PRINT"REPORT";:COLORQF:IFJ=4ANDJ<=6THENEN$="submarine" ELSEEN$="ship
  250. 4700  PRINT" from the H.M.S "HC$(X):PRINT:PRINT"`We have picked up a enemy ";:COLORQA:PRINTEN$;:COLORQF:PRINT" on radar in sea sector"SE(X)".
  251. 4720  PRINT:PRINT"Enemy "EN$" is"DJ"miles away. What are your orders,sir?":PRINT:PRINT"You may:":PRINT:PRINT"Move out of sector           (F1)":PRINT"Move towards vessel          (F2)":IFX<4THEN4790
  252. 4770  PRINT"Launch attack against vessel (F3)":IFX>6ANDX<10THEN4800
  253. 4790  PRINT"Mount air strike             (F4)
  254. 4800  PRINT:PRINT"Enter choice ?":GOSUB8330:DO=F2:CLS:IFDO=0THEN4850
  255. 4820  IFDO>4ORDO<0THENPRINT"Use function key 1-4. Try again.":GOTO4800
  256. 4830  ONDOGOTO4840,5220,5310,5750
  257. 4840  IFDJ>40THEN5660
  258. 4850  BEEP:COLORQD:PRINT"*RED ALERT*":COLORQF:IFEN$="submarine"THEN6530
  259. 4880  IFX>=7ANDX<=9THEN8180
  260. 4890  PRINT"***Your vessel is under attack.Radar has spotted missiles on intercept course.
  261. 4900  PRINT:PRINT"What action do you take,sir?":PRINT:PRINT"Jam tracking radar         (F1)":PRINT"Launch decoy               (F2)":PRINT"Launch AMM's               (F3)":PRINT:PRINT"Choose one ?":GOSUB8330:CLS
  262. 4950  IFF2<1ORF2>3THENPRINT"Use function key 1-3. Try again.":GOTO4900
  263. 4960  IFF2=3ANDX=3THENPRINT"You don't have it":GOTO4900
  264. 4970  IFF2=3ANDX=1THENPRINT"You don't have it":GOTO4900
  265. 4980  IFDJ<=8ANDF2=3THENPRINT"***Not enough time to launch!":GOTO4900
  266. 4990  IA=INT(RND(1)*9)-F2:IFIA>6THEN5130
  267. 5010  IFIA=5ORIA=6THEN5060
  268. 5020  PRINT"***The enemy missiles were diverted.Your ship survived with no damage.
  269. 5030  IFDO=1THEN5660
  270. 5040  IFGA=1THEN6550
  271. 5050  GOTO4720
  272. 5060  PRINT"***Your counter-measures caused a near miss !":IFX=1THENPRINT"The ship suffered no damage.":GOTO4720
  273. 5090  PRINT"The ship suffered minimum damage. The damage is being repaired.":LOCATE23,25,0:PRINT"-press space bar to continue-
  274. 5110  A$=INKEY$:IFA$=""THEN5110
  275. 5120  CLS:GOTO4720
  276. 5130  IFX<7ORX>9THEN5150
  277. 5140  IFDD(X)>=1000THEN8180
  278. 5150  PRINT"ABANDON SHIP...ABANDON SHIP.":PRINT"The enemy "EN$" launched an attack,you had no time for evasive maneuvers.
  279. 5170  PRINT"The H.M.S "HC$(X)" was hit and sunk. Rescue operations in effect.":IFX=5ORX=6THENTC(X)=0:LC(X)=0:PRINT"All troops aboard were medivaced to the QEII.
  280. 5190  HC$(X)="":SX=0:DB(X)=5:SE(X)=0:IG(X)=0:MK=INT(RND(1)*50)+100:IFX<=9THENPC(X)=0:SY(X)=0:SH(X)=0:LA(X)=0
  281. 5200  FORGL=1TO10:SI(X,GL)=0:NEXTGL:PRINTMK"men were killed. Many were wounded.":KA=KA+MK:MK=0:GOTO6160
  282. 5220  REM
  283. 5230  PRINT"Warning: The  more miles you move at one time the greater you chances":PRINT"To be destroyed!":PRINT:INPUT"How many miles";HB:IFHB=0THEN4720
  284. 5270  IFHB>=DJTHENPRINT"***You can't ram the ship or pass it!":GOTO5230
  285. 5280  DJ=DJ-HB:IFDJ<10ORHB>20THEN5130
  286. 5300  GOTO4850
  287. 5310  IFDJ<=30ANDDJ>0THEN5340
  288. 5330  PRINT"***The "EN$" is not in range! You'll have to move closer!":GOTO4720
  289. 5340  IFX<7ORX>9THEN5360
  290. 5350  IFDD(X)>=550THENPRINT"***You are too deep to fire!":GOTO4720
  291. 5360  IFX=2ORX=4ORX>=12THENEX=1 ELSEEX=0
  292. 5370  IFX=4ORX=5ORX=6ORX>=12THENSZ=1 ELSESZ=0
  293. 5380  IFX=2ORX=10ORX=11THENSK=1 ELSESK=0
  294. 5390  IFX>6ANDX<10THENSSB=1 ELSESSB=0
  295. 5400  IFDJ>25ANDSK=0THEN5580
  296. 5410  IFDJ>20ANDSK=0ANDEX=0THEN5580
  297. 5420  PRINT"You can use one of the following:":PRINT:PRINT" Weapon                 Range        Effectiveness":PRINT"  name                  miles            %":PRINT"--------               -------      ---------------
  298. 5460  IFEX=1THENEB=0.79:PRINT"(F1) Exocet missile      25            79
  299. 5470  IFSZ=1THENEB=0.95:PRINT"(F2) Sea Cat missile     20            95
  300. 5480  IFSK=1THENEB=0.75:PRINT"(F3) Sea Slug missile    30           75
  301. 5490  IFSSB=1THENEB=0.8:PRINT"(F4) Torpedo             25           80
  302. 5500  IFEB<=0THENCLS:GOTO4720
  303. 5510  PRINT:PRINT"Choose one ?":GOSUB8330:AC=F2:IFAC=0THENCLS:GOTO4720
  304. 5530  IFAC<1ORAC>4THENPRINT"**Use the function keys**":GOTO5420
  305. 5540  IFAC=4ANDSSB=1THEN5590
  306. 5550  IFAC=3ANDSK=1ANDDJ<=30THEN5600
  307. 5560  IFAC=2ANDSZ=1ANDDJ<=20THEN5600
  308. 5570  IFAC=1ANDEX=1ANDDJ<=25THEN5600
  309. 5580  CLS:PRINT"***Not in range !":GOTO4720
  310. 5590  PRINT:IFAC=4THENPRINT"2 torpedoes are away!!":GOTO5610
  311. 5600  PRINT:PRINTINT(RND(1)*4)+1"missiles are away!!
  312. 5610  IFRND(1)<=EBTHEN5630
  313. 5620  PRINT"***Target evaded attack and received minor damage.":GOTO4850
  314. 5630  PRINT"***DIRECT HIT!! Target is a ball of flame! No survivors.":PRINT"The A.F. "NH$(J)" has been destroyed!!":C10=C10-1
  315. 5650  SC(J)=0:NH$(J)="":DF=0:GOTO6160
  316. 5660  IFSE(X)=159THENSE(X)=158:GOTO5730
  317. 5680  RESTORE5710:FORS12=1TO19:READWB:IFSE(X)=WBTHENSE(X)=SE(X)-1:GOTO5730
  318. 5700  NEXTS12
  319. 5710  DATA2,4,6,11,15,20,26,33,41,50,60,71,82,93,104,116,130,142,151:SE(X)=SE(X)+1
  320. 5730  PRINT"***You escaped to sector"SE(X):GOTO6160
  321. 5750  IFEN$="submarine"THEN6190
  322. 5770  IFLA(X)<>1THENS$="s
  323. 5780  IFX>3THENPRINT"***Your helicopter"S$" would have no chance!":GOTO4720
  324. 5790  TA=0:A=0:AA=0:J4=0:PRINT"What do you want your planes to be:
  325. 5800  PRINT:PRINT"Harrier Jets(F1) or Phantom Jets(F2) ?":GOSUB8330:Y1=F2:IFY1=0THEN4720
  326. 5820  IFY1>2ORY1<0THEN5800
  327. 5830  IFY1=2THENY1$="Phantom":TA=PC(X):GOTO5845
  328. 5840  Y1$="Harrier":TA=SH(X)
  329. 5845  IFTA<=0THEN5890
  330. 5850  CLS:PRINT"Enter the number of planes you want to commit :":PRINT"You have a total of"TA;Y1$"s. ";:INPUTA4:IFA4=0THEN4720
  331. 5880  IFTA<A4THENPRINT"***You don't have that many!":GOTO5790
  332. 5890  IFTA<=0THENPRINT"***You have no "Y1$" aircraft left!":GOTO5790
  333. 5900  CLS:PRINTTAB(20)"Your planes are armed with the new Sea Eagle.":PRINTTAB(25)"(Sea-skimming anti-ship missile)":PRINTTAB(29)"The planes are all away.":TB=0:LOCATE23,25,0:PRINT"-press space bar to continue-
  334. 5940  A$=INKEY$:IFA$=""THEN5940
  335. 5960  CLS:SB=0:COLORQD:PRINT"REPORT ";:COLORQF:PRINT"from RN (Leader of air strike): ":PRINT:PRINT"The ship is coming up fast! I can see the name...";NH$(J):PRINT"We're going in low for the attack! Flak everywhere.......
  336. 6010  SD=INT(RND(1)*A4)-2:IFSD>2THENSD=0
  337. 6020  IFSD>=A4THENPRINT"All planes were destroyed.Target safe.":GOTO6110
  338. 6030  A4=SD:SD=INT(RND(1)*3):ONSDGOTO6040,6050,6070
  339. 6040  PRINT"Missiles away....Target blow out of the water. We lost";:GOTO6080
  340. 6050  PRINT"Bombs away......@!#$%^&< Missed,but RN"INT(RND(1)*3424)+434"got a":PRINT"DIRECT HIT!!! Target is in flames! We lost";:GOTO6080
  341. 6070  PRINT"Missiles away.....Target hit. And sinking slowly. We lost";
  342. 6080  IFA4<=0THENPRINT" no one.":SC(J)=0:C10=C10-1:NH$(J)="":GOTO5650
  343. 6090  PRINTA4"planes.":SC(J)=0:NH$(J)="":C10=C10-1:KA=KA+A4
  344. 6100  IFA4<=0THEN6160
  345. 6110  IFY1$="Phantom"THEN6140
  346. 6120  FORDE=1TO3:IFSH(DE)>=1THENSH(DE)=SH(DE)-1:A4=A4-1:GOTO6100
  347. 6130  NEXTDE
  348. 6140  FORDE=1TO3:IFPC(DE)>=1THENPC(DE)=PC(DE)-1:A4=A4-1:GOTO6100
  349. 6150  NEXTDE:SD=0
  350. 6160  PRINT:PRINT:PRINT"-press space bar to continue-":A4=0:Y1$="":DO=0:TB=0
  351. 6170  A$=INKEY$:IFA$=""THEN6170
  352. 6180  CLS:RETURN
  353. 6190  IFX>10ANDLA(X)<=0THENPRINT"***You have no Anti-sub helicopters!
  354. 6210  IFSY(X)<=0ANDLA(X)<=0THENPRINT"You have no Anti-sub helicopters!":GOTO4720
  355. 6220  IFDJ<=6THEN6480
  356. 6230  IFDJ<=10THEN6510
  357. 6240  A=0:AA=0:J4=0:PRINT"What do you want your Air strike to consist of:":PRINT
  358. 6250  PRINT"Lynx helicopter (F1) or Sea King helicopter (F2) ?":GOSUB8330:Y1=F2:IFY1=0THEN1970
  359. 6270  IFY1<0ORY1>2THEN6250
  360. 6271  IFY1=2THEN6325
  361. 6275  IFLA(X)<=0THENPRINT"** This ship has no Lynx helicopters":GOTO6240
  362. 6280  PRINT"Enter the number of helicopters you want to commit :":PRINT"This ship has";LA(X);"Lynx helicopters";:INPUT A4:IF A4=0 THEN 4720
  363. 6310  IFA4>LA(X)THENPRINT"***This ship doesn't have many!":GOTO6240
  364. 6320  GOTO6360
  365. 6325  IFSY(X)<=0THENPRINT"** This ship has no Sea King Helicopters.":GOTO6240
  366. 6326  PRINT"Enter the number of helicopters you wish to commit :":PRINT"This ship has"SY(X)"Sea King helicopters";:INPUTA4:IFA4=0THEN4720
  367. 6350  IFA4>SY(X)THENPRINT"***This ship doesn't have that many!":GOTO6240
  368. 6360  CLS:COLORQD:PRINT"REPORT ";:COLORQF:PRINT"from RN (Leader of air strike): ":PRINT:PRINT"We have the sub on radar!":PRINT"We are dropping depth charges and are rocketing the area!":WA=INT(RND(1)*10):WA=WA+1
  369. 6410  WA=WA-1:IFWA<=0THEN6460
  370. 6420  IFINT(RND(1)*20)<WATHEN6440
  371. 6430  GOTO6410
  372. 6440  PRINT:PRINT"We got it!!! The sub has been destroyed,return to base.":C10=C10-1:WA=0:Y1$="":SC(J)=0:NH$(J)="":GOTO6160
  373. 6460  PRINT:PRINT"The sub has escaped to another sector,return to base.":SC(J)=SC(J)+1:GOTO6160
  374. 6480  CLS:PRINT"***You could not get the strike off in time.":GOTO5130
  375. 6510  PRINT"You could not get the strike off in time.":BEEP:COLORQD:PRINT"*RED ALERT*":COLORQF
  376. 6530  PRINT"Your ship is under attack.Radar has spotted torpedoes on intercept course.":GA=1:GOTO4900
  377. 6550  GA=0:PRINT"Sub has vanished! Better luck next time.":GOTO6160
  378. 6560  CLS:LOCATE1,30,0:COLOR7:PRINT"AMPHIBIOUS LANDING":LOCATE2,30,0:PRINT"SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND":COLORQF:IFA5>4ANDA5<20THENPRINT"Warning: It is still daylight out!":DA=1
  379. 6600  INPUT"What land sector do you want your troops to land in";GB:IFGB=0THENDA=0:GOTO1970
  380. 6620  IFGB>21ORGB<0THENPRINT"No such land sector!":GOTO6600
  381. 6630  PRINT"What landing craft do you want to use:
  382. 6640  PRINT"(F5) or (F6) = Landing Craft ?":GOSUB8330:IFF2=0THENDA=0:GOTO1970
  383. 6660  IFF2<5ORF2>7THEN6640
  384. 6670  IFMB(F2)<=0THENPRINT"You have nothing to land!":GOTO6820
  385. 6680  RESTORE6700:FORZS=1TO3:READFC:IFGB=FCTHEN6720
  386. 6690  NEXTZS
  387. 6700  DATA13,14,17:GOTO6730
  388. 6720  PRINT"That land sector is land locked,try another.":GOTO6600
  389. 6730  RESTORE6760:FORDF=1TO4:READSI,J:FORZS=1TOJ:READSA:IFSE(F2)=SIANDGB=SATHEN6770 ELSENEXTZS
  390. 6750  NEXTDF:GOTO7070
  391. 6760  DATA120,2,20,21,122,5,18,19,15,12,11,133,6,10,5,6,4,2,1,121,5,3,7,9,16,20
  392. 6770  PRINT:PRINT"It will take them 5 hours to make a complete landing.":IFF2=5THENF25=1 ELSEFB=1
  393. 6790  IFF2=5THENGC=GB ELSEGD=GB
  394. 6800  IFF2=5THENTI=5+A5:IFTI>24THENTI=TI-24:GOTO6820
  395. 6810  IFF2=6THENTP=5+A5:IFTP>24THENTP=TP-24
  396. 6820  LOCATE23,25,0:PRINT"-press space bar to continue-
  397. 6830  A$=INKEY$:IFA$=""THEN6830 ELSE1970
  398. 6840  CLS:COLORQD:PRINT"REPORT";:COLORQF:PRINT" from Ground Commander:":IFTI=A5THENGB=GC ELSEGB=GD
  399. 6860  IFDA=1THENDA=0:GOTO6930
  400. 6870  IFLE(GB)>150THEN6930
  401. 6880  PRINT:PRINT"All troops and equipment has landed safely in sector #"GB:PRINT"You may begin sterilization phase,over & out.":CA(GB)=GB:LE(GB)=0:IFTI=A5THENMB(5)=0:TC(5)=0:F25=0:TI=0:F25=0:GC=0:GOTO7050
  402. 6920  IFTP=A5THENMB(6)=0:TC(6)=0:FB=0:TP=0:FB=0:GD=0:GOTO7050
  403. 6930  PRINT:PRINT"We landed on a Argentine position!":MK=INT(RND(1)*40)+10:MW=INT(RND(1)*100)+50:PRINTMK"men were killed &"MW"men were wounded.";:PRINT"We've saved most of the important equipment but have lost":PRINT"most helicopters to an ambush.
  404. 6980  PRINT"I recommend shelling the sector before trying again,over and out!":KA=KA+MK:WW=WW+MW:MW=0:MK=0:GB=0:IFF25=1THENMB(5)=MB(F2)-MK:TI=0:GOTO7050
  405. 7010  MB(5)=MB(F2)-MK:TP=0:GOTO7050
  406. 7050  LOCATE23,25,0:PRINT"-press space bar to continue-
  407. 7060  A$=INKEY$:IFA$=""THEN7060 ELSERETURN
  408. 7070  PRINT:PRINT"Your landing craft must be next to the sector.":GOTO6600
  409. 7080  CLS:LOCATE1,30,0:COLOR7:PRINT"CHANGE SUBMARINES DEPTH":LOCATE2,30,0:PRINT"SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND":COLORQF
  410. 7110  INPUT"Enter ID # of sub";ID:IFID=0THEN1970
  411. 7130  IFID<7ORID>9THENPRINT"That ID # is not for a submarine!":GOTO7110
  412. 7140  IFDB(ID)=5THENPRINT"That submarine has been destroyed!":GOTO7110
  413. 7150  INPUT"What depth do you want";DD:IFDD=0THEN7190
  414. 7170  IFDD>=5501ORDD<0THEN7210
  415. 7180  PRINT"The maneuver will be completed in 1 hour.":CC(ID)=DD
  416. 7190  DD=0:ID=0:LOCATE23,25,0:PRINT"-press space bar to continue-
  417. 7200  A$=INKEY$:IFA$=""THEN7200 ELSE2050
  418. 7210  PRINT"Sub #"ID"will be destroyed if you go that deep!!":GOTO7110
  419. 7220  EA=INT(RND(1)*9)+1:CLS:COLORQD:PRINT"REPORT";:COLORQB:RANDOMIZEINT(VAL(MID$(TIME$,7,2))):PRINT" from observation post #"INT(RND(1)*5)+1:PRINT:PRINT"We have sighted"EA"enemy planes coming in low from sector 117.
  420. 7280  PRINT"Intercepters are ready to be sent up at once,over & out.":GOTO3590
  421. 7290  MK=0
  422. 7310  ID=INT(RND(1)*14)+1:RESTORE7350:IFDB(ID)=5THEN7310
  423. 7330  FORWE=1TO8:READJO,JI:IFSE(ID)>=JOANDSE(ID)<=JITHEN7370
  424. 7340  NEXTWE
  425. 7350  DATA61,68,72,76,83,87,94,98,105,110,117,124,131,136,143,148:IFTB>0THEN4540 ELSE1970
  426. 7370  CLS:COLORQD:PRINT"REPORT";:COLORQF:PRINT" from Lt. Hammerly,":PRINT:PRINT"Super Eladant enemy fighters attacked the HMS "HC$(ID):IFRND(1)>0.6THEN7500
  427. 7400  PRINT"It was hit and sunk.";:MK=INT(RND(1)*50)+80:MW=INT(RND(1)*25)+100:IFID=5ORID=6THEN7430 ELSE7440
  428. 7430  IFMB(ID)>0THENPRINT"The troops aboard were evacuated to the QEII.
  429. 7440  PRINTMK"crew were killed.":PRINT"Many were wounded.":KA=KA+MK:SE(ID)=0:DB(ID)=5:IG(ID)=0:LA(ID)=0:WW=WW+MW:IFID<=9THENSH(ID)=0:PC(ID)=0:SY(ID)=0:LA(ID)=0
  430. 7480  LOCATE23,25,0:PRINT"-press space bar to continue-
  431. 7490  A$=INKEY$:IFA$=""THEN7490 ELSE2050
  432. 7500  PRINT"The ship survived with minor damage.";:MW=INT(RND(1)*40):KA=KA+MK:PRINTMW"men were wounded.":WW=WW+MW:MW=0:MK=0:ID=0:GOTO7480
  433. 7540  FORD=1TO21:IFCA(D)>0THEN7570 ELSENEXTD
  434. 7560  RETURN
  435. 7570  HE=INT(RND(1)*20)+1:IFCA(HE+1)>0ORCA(HE-1)>0THEN7580 ELSE7570
  436. 7580  IFCA(HE)>0THEN7570
  437. 7590  IFLE(HE)<=250THENLOCATE13,25,0:PRINT"You have captured sector"HE:CA(HE)=HE:LE(HE)=0:TB=0:GOTO7050
  438. 7600  RANDOMIZEINT(VAL(MID$(TIME$,7,2))):CLS:COLORQD:PRINT"REPORT";:COLORQF:PRINT" from ground troops commander.":HA=HE:PRINT:LE(HE)=LE(HE)-10:PRINT"Sector"HA"has run onto some heavy fighting and requests help
  439. 7630  PRINT"in the form of artillery or air support.Over and out.":HA=0:TB=0:GOTO7050
  440. 7650  SG=0:CLS:LOCATE1,25,0:COLOR7:PRINT"CASUALTIES FOR THE BRITISH":LOCATE2,25,0:PRINT"SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND":COLORQF:LOCATE4,15,0:PRINT"Killed In Action":LOCATE4,45,0:PRINT"Wounded In Action":LOCATE5,15,0:PRINT"----------------
  441. 7700  LOCATE5,45,0:PRINT"-----------------":LOCATE6,21,0:PRINTKA:LOCATE6,52,0:PRINTWW:LOCATE7,33,0:PRINT"Ships Sunk":LOCATE8,33,0:PRINT"----------":LOCATE9,36,0:FORX=1TO15:IFDB(X)>0THENSG=SG+1
  442. 7740  NEXTX:PRINTSG:SG=0:GOSUB7050:GOTO2030
  443. 7760  CLS:INPUT"ARE YOU SURE YOU WANT TO SURRENDER";Q$:IFLEFT$(Q$,1)="y"ORLEFT$(Q$,1)="Y"THEN7790 ELSE1970
  444. 7790  CLS:LOCATE10,15,0:PRINT"You have surrendered all your ships & crew!":LOCATE11,14,0:PRINT"Argentina still has control of the Falklands!
  445. 7810  A$=INKEY$:IFA$=""THEN7810
  446. 7820  SYSTEM
  447. 7830  CLS:COLORQD:PRINT"REPORT";:COLORQF:PRINT" from ground commander,":PRINT:PRINT"The Argentinians have surrendered!!!!!!!!!!!! We win!!":PRINT"We have successfully taken Stanley,San Carlos & Goose Green.
  448. 7890  PRINT"Here is the final casualty report:":PRINT:PA=KA/5750*100:PRINT"Men killed in action     "KA"     ";:GOSUB8080:PA=WW/5750*100:PRINT"Men wounded in action    "WW"     ";:GOSUB8080:MA=INT(RND(1)*100)+1:PA=MA/5750*100
  449. 7950  PRINT"Men missing in action    "MA"    ";:GOSUB8080:SG=0:FORX=1TO15:IFDB(X)=5THENSG=SG+1
  450. 7970  NEXTX:PB=SG/15*100:PRINT"Ship sunk in action      "SG"    ";:PRINTUSING"##.#";PB;:PRINT" %":TA=KA+WW+MA:PA=TA/5750*100:PA=PA+PB:IFPA>100THENPA=99.9
  451. 8030  PRINT"You have a total of ";:PRINTUSING"##.#";PA;:PRINT"% casualty's":FORX=1TO21:IFCA(X)<=0THENNEXTX ELSE8070
  452. 8060  PRINT"You never captured the any sector of the island! ":END
  453. 8070  IFCA(16)<=0ANDCA(15)<=0ANDCA(10)<=0THENPRINT"But you never completed your objective!! Better luck next time!":END
  454. 8075  GOTO8100
  455. 8080  PRINTUSING"###.#";PA;:PRINT" %":RETURN
  456. 8100  PRINT:IFPA=0THEN8160
  457. 8110  IFPA<5THENPRINT"Very good!! You have been promoted to Commodore!":END
  458. 8120  IFPA<15THENPRINT"Not too bad, but you were not promoted.":END
  459. 8130  IFPA<45THENPRINT"You did not do as well as expected and were not promoted." ELSE8150
  460. 8140  END
  461. 8150  PRINT"Very bad! You have been demoted to Sub-Lieutenant. Better luck next war.":END
  462. 8160  PRINT"You have been promoted to Admiral, by the queen herself!!":PRINT:PRINT"        It was an honor to have played with you!!":END
  463. 8180  IFDD(X)>1000THENPRINT"The sub is too deep to damage!":GOTO5030
  464. 8200  CLS:COLORQD:PRINT"REPORT";:COLORQF:PRINT" from Sub #"X:PRINT:PRINT"Missiles coming in fast....You may do one of the following:":PRINT"Jam radar      (F1)":PRINT"Evasive action (F2)":IFDD(X)>100THENPRINT"Dive           (F3)
  465. 8250  PRINT:PRINT"Choose one ?":GOSUB8330:CB=F2:IFCB=0THENPRINT"You must do something!":GOTO8250
  466. 8270  IFCB>3ORCB<0THEN8250
  467. 8280  IFCB=3THENDD(X)=DD(X)+1000:GOTO8300
  468. 8290  IFRND(1)>=0.6THEN5150 ELSE8310
  469. 8300  PRINT:PRINT"We are being attacked by enemy A.S. helicopters.We are trying to dive to escape.":IFDD<1500THEN5130
  470. 8310  PRINT"The sub escaped with minor damage.":GOTO4720
  471. 8330  F2=0:DEFSEG=0:POKE1050,PEEK(1052):DEFSEG
  472. 8340  FK$=INKEY$:IFFK$=""GOTO8340
  473. 8350  IFLEN(FK$)=2THENFK%=ASC(RIGHT$(FK$,1)):GOTO8370
  474. 8360  GOTO8340
  475. 8370  F2=FK%-58:IFF2>10ORF2<1THEN8330
  476. 8380  RETURN
  477. 8390  IFRND(1)>0.865THENXX$=" hit an underwater mine":GOTO8430
  478. 8410  IFRND(1)>0.8252THENXX$=" was hit by land to sea missles":GOTO8430
  479. 8420  RETURN
  480. 8430  CLS:COLORQD:PRINT"REPORT";:COLOR7:PRINT" from Lt. Halsten :":PRINT"The H.M.S "HC$(X);XX$" and sunk. Rescue operations in effect.":HC$(X)="":SX=0:DB(X)=5:SE(X)=0:IG(X)=0:MK=INT(RND(1)*50)+100:IFX<9THENPC(X)=0:SY(X)=0:SH(X)=0:LA(X)=0
  481. 8470  FORGL=1TO10:SI(X,GL)=0:NEXTGL:PRINTMK"men were killed. Many were wounded.":KA=KA+MK:MK=0:RANDOMIZEINT(VAL(MID$(TIME$,7,2))):LOCATE23,25,0:PRINT"-press space bar to continue-
  482. 8510  A$=INKEY$:IFA$=""THEN8510
  483. 8520  CLS:X=1:RETURN
  484.